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PROGRAMMING SERVICES 


During a specified number of months immediately following 
initial availability of each licensed program designated as 
the Programming Services Period, and referenced in the Sup- 
plement to Amended Licerise Agreement for IBM Program Products, 
the Customer may submit documentation to a designated IBM 
location when he encounters a problem which his diagnosis 
indicates is caused by a licensed program error. During this 
period only, IBM through the program sponsor(s) will, with- 
out additional charge, respond to an error in the current 
unaltered release of the licensed program by issuing known 
error correction information to the Customer reporting the 
problem and/or issuing corrected code or notice of avail- 
ability of corrected code. However, IBM does not guarantee 
service results cr represent or warrant that all errors will 
be corrected. Any on-site programming services or assistance 
will be provided at a charge. 


Program error correction requests and/or comments concerning 
the contents of this publication should be addressed to: 


IBM Corporation 

8712 West Dodge Road 
Omaha, Nebraska 68114 
Attn: Mr. Don Larimer 


WARRANTY 


EACH LICENSED PROGRAM IS DISTRIBUTED ON AN 'AS IS' BASIS 
WITHOUT WARRANTY OF ANY KIND EITHER EXPRESS OR IMPLIED. 


Requests for copies of IBM publications should be made to 


your IBM Representative or to the IBM Branch Office serving 
your locality. 


© Copyright International Business Machines Corporation 1972 
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INTRODUCTION 


The purpose of this manual is to provide the user familiarity with the 
capabilities of the System/3 Query Facility and define the means by 
which a functioning system may be created. Described in detail are 
the Facility as a system, the operational aspects of the Facility, and 
a definition of each of the command statements that may be used to 
write a query. The necessary functions to tailor the programs to gen- 
erate the system are enumerated. For information on how to modify 


the Facility to execute on a System/3 Model 6, refer to the Systems 
Guide. 


SYSTEM OVERVIEW 


The System/3 Query Facility is a tool that allows the user, programmer, 
and non-programmer alike to selectively access disk data files for prepar- 
ing reports or gathering statistics. By using the functions provided in 
four simple -ommands and the functions of the System/3 Disk Sort, the user 
Can rapidly formulate queries to the system and receive responses in the 


form of printed output without expending time and effort for writing and 
testing programs. 


System Description 


The System/3 Query Facility is comprised of two programs written in RPG II. 
Input to the first program is the 'SELECT' and 'SORT' commands. This pro- 


gram translates these statements into control Statements that are compatible 
with the System/3 disk sort. 


Upon processing these control statements, the sort utility then produces 
an output file of the records the user has selected, placing them in the 
defined sequence. This file then becomes input to the second program of 
the facility which processes the data and produces a report according to 
the definitions established by the 'PRINT' and 'COUNT' commands. Figure 4 
presents samples of the control statements; Figure 5 illustrates how a 
query might be written and the resulting report. 


The commands are designed to give a great deal of function to the user and 
demand little concern for rigid formatting. They are written in a manner 
that conveys meaning to the writer of a query, making a request simple and 
direct, and provides results ina minimum of time. 


Programming Systems 


The programs were written and tested under RPG II (5702-RG1, Version 5, 
Modification Level 0) for the System/3 Model 10 (disk). Instructions are 
provided for adaptation to a System/3 Model 6. In addition to the RPG II 
Compiler, the Disk Sort Program (5702-SM1) is required. 


System Configuration 


The object programs require 9216 bytes of memory. With a normal size core- 
resident system control program (approximately 3K bytes) a 12K central 
processor is required. The programs will execute on an otherwise minimum 
System/3 Model 10 disk configuration. Sufficient disk space should be 
available for sort work areas and output areas. 


PROGRAM DESCRIPTIONS 
— ee ee EUS) 


The System/3 Query Facility is comprised of two RPG II programs. These two 


programs, in conjunction with the Disk Sort Program, process Query Facility 
commands which result ina printed report containing the information selected 
and sequenced by the user's commands. A discussion of the individual pro- 


grams follows. (For a discussion of commands and their formats refer to 
page ll). 


Program ANBOl, the Sort Specification Generator 
te pecitication Generator 
This program processes the user's "SELECT' and 'SORT' 


statements. The 
"SELECT' statement is optional; the 'SORT' 


Statement is required. The 
order in which the two statements are input to the program is not import- 


ant. Figure 1 illustrates the execution of program ANBO1. 
The OCL and data required for execution is: 


// LCAD ANBOL, Fl 


// RUN 

SELECT 16 ee ge 4 es Gg a a (optional) 

GAG: Goines dar Mes oes oe (2nd card of 'SELECT' statement is optional) 
SORT, ie) Fae es hc eo ee a ee eo 

/* 


The OCL and data are placed in MFCUl. Blank cards should be placed in 
MFCU2 for punching the output cards. No printed output is produced. 


The punched output consists of System/3 sort specifications which are 


supplied as input to the sort phase. (See the section "Operations In- 
structions") . 


The following limitations are placed on the "SELECT" and "SORT" statements: 
a. The 'SELECT' statement may span only two cards. 


b. A maximum of 10 "SELECT" relationships may be specified in the 
"SELECT" statement. 


c. A maximum of 10 data element names may be specified in the 'SORT' 
statement. 


If requirements are such that these limits must be exceeded, this must 


be planned for at generation time. Instructions for modification are 
included on page 20. 





Figure 1 -- System/3 Query Facility Phase I 
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Figure 3 -- System/3 Query Facility Phase III 


Intermediate Disk Sort Phase 
EE en OTe Phase 


Upon complétion of program ANBO1, the punched output is removed from 


Stacker 4 of the MFCU and placed directly behind the following OCL* in 
MFCUL: 


// LOAD SDSORT, Fl 
// FILE NAME-INPUT, UNIT-uu, PACK-pppppp, LABEL-1....1 
// FILE NAME-WORK, UNIT-uu, PACK~pppppp, TRACKS-nnn, RETAIN-S 


// FILE NAME-OUTPUT, UNIT-uu, PACK=pppppp, TRACKS-nnn, RETAIN-T, LABEL-S3QFOUT 
// RUN 


Cards produced by ANBO] 


Figure 2 illustrates the execution of the sort phase. 


*Where uu, 1....1, pppppp, nnn, are the appropriate entries for unit, 
vTOC file label, volume label, and number of tracks respectively. 


Program ANBO2, the Report Program 


This program processes the user's 'PRINT'’ and 'COUNT' statements. The 
"PRINT' statement is required; the 'COUNT' statement is optional. The 
order in which they are input is not important. Figure 3 illustrates the 
flow for this program. The disk input file, which was produced by the 


sort phase, is interpreted for printing and tabulation via the 'PRINT' 
and'COUNT' statements. 


The OCL and data required, placed in MFCU1, are as follows: 


// LOAD ANBO2, Fl 
// FILE NAME-INPUT, UNIT-uu*, PACK-pppppp*, LABEL-S3QFOUT 


// RUN 

PRINT: 6. cise Ge. Se Sp a cay Se Re AL re ws 

COUNT 2. 6 6 ee ee we we ew ew ew ©) 6(Optional) 
/* 


The report is produced on the system printer at this time. Figure 3 illus- 
trates the execution of Phase III, program ANBO2. 


*uu -~ unit sorted master file resides on. 
Pppppp - pack label for above unit. 


Program ANBO3, Sample File Creation Program 


In order to run the sample program, a sample file must be created. The 
following OCL must be placed in MFCUL along with the sample data in order 
to execute the sample file creation program: 


// “OAD ANBO3, Fl 


// FILE NAME-SAMPLE, UNIT~uu, PACK-ppppp, LABEL-SAMPLE, TRACKS-1, RETAIN-T 
// RUN 


Sample Data 


/* 
Where uu and pppppp are the appropriate unit and pack designations. 


Modification Aids 


There are two basic categories of modifications discussed elsewhere in 
the documentation. The first category involves tailoring the programs to 
the hardware configuration (System/3 Model 10) and specific master file 
of the user. This includes modifying for increased printer capacity, 
allowing for more information in control statements, and adjusting for 
the size of the Data Element Dictionary. These changes are presented in 


detail in the section on "Installation Instructions", pages 16 to 23 of 
this manual. 


The second category which is a general discussion on how to modify these 
programs to execute on the System/3 Model 6 is contained in the Systems 
Guide. 


SELECT (SEX EQ F) AND (AGE LT 40) AND (CORNRY EQ +) AND (VENFIB EQ +) 
SELECT (ONHAND LT BAKORD) OR (BAKORD GT 0) 

SELECT (STATE EQ IA) AND (STATUS EQ D) 

SORT AGE, STATE, YEAR 

SORT ITEM, ONHAND 

SORT AMOUNT, DATE 

PRINT NAME, ADDR, CITY, AMOUNT, DUE 

PRINT ITEM, ONHAND, ONORD, BAKORD 

PRINT CUSTNO, CUSNAM, ADDRS, BALDUE 

COUNT AMOUNT 


COUNT BALUDUE, CURRNT, PASTDUE 


Figure 4 -- Examples of Command Statements 


The Problem: To determine all items that either have yielded a year-to- 
date margin of $1,000 or more, or, those which have sold more than 250 
units. These items should be sorted by item class, and by the margin 
amount (descending) within that. The printed output should contain the 
item class, item description, item number, quantity sold, and the gross 
margin. The margin amount should be tabulated and printed at the end of 
the report. A count of records is automatic. 


The Required Query Commands: 
SELECT (MARGIN GE 1000.00) OR (QUANTY GE 250) 
SORT ITMCLS, MARGIN-D 
PRINT ITMCLS, DESCR, ITEMNO, QUANTY, MARGIN 


COUNT MARGIN 


The Resulting Report: 


CLASS DESCRIPTION ITEM # SOLD GROSS MARGIN 
AQ3 #13 GEAR 1468 12 2260.00 
AQ3 #18 GEAR 1469 68 1108.00 
A93 #24 GEAR 5201 252 12.50 
BOl PINION 309 1 1000.00 
BOl A-Y LEVER 2415 868 868.00 


RECORDS PRINTED = 5 


TOTAL MARGIN = 5248.50 


Figure 5 ~- A Sample Query and Resulting Report 
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SYSTEM/3 QUERY FACILITY COMMANDS 


In order for the system to Process a user's request, his problem must be 
expressed to the facility in the fomn of commands. This set of commands 
(a query) informs the system which specific records to select, the sequence 
in which to output the records, the data to print on the output report, and 
the numeric data fields for which totals are to be accumulated. A query 


can be comprised of four Statement types. Their detailed descriptions and 
formats are found in the following pages. 


'SORT' Control Statement 
eros Statement 


The 'SORT' statement is required for any query. This command defines how 
the records are to be sequenced by specifying the data element names to use 
for sequencing. The first data element name has the most significance in 
sorting; the last is least Significant. All sequencing is assumed to be 
ascending; descending Sequence for specific data elements can be speci fied 
(see below). The normal System/3 collating sequence is used, which, in 
general, treats blanks and special characters as lowest values, followed 

by alphabetic characters (A to Z), then by numerics (0 to 9). For more 
detail, refer to the Disk Sort Manual (SC21-7522) 


The format is as follows: 


SORT des, de,, de,, aes de. 


where de is a data element name. The characters 'SORT' must start in 
column ot the card and be followed by one or more blanks. Data element 
names must be separated by commas, and any number of blanks (0 up) may 
follow a comma. The program is written to allow a maximum of 10 data 
element names in the 'SORT' statement. As previously mentioned, a data 
element can be specified as a descending sort control field. This is 


accomplished by simply following the data element name in the 'SORT' 
command by the characters '-p'. 


The following are examples of 'SORT' statements: 


SORT STATE, CITY, NAME 


SORT VENDOR, ITEM 
SORT SALES-D 
SORT AGE, IQ-D, GRADE 


"SELECT' Control Statement 
The 'SELECT' statement gives the user the ability to extract records from 


his data file using the power of Boolean logic. Records that meet the 
criteria specified in the 'SELECT' statement appear in the output report; 


ll 


all others are ignored. This gives the user the ability to retrieve cate~ 
gories of data from his files (such as all the customers in New York or 
all back-ordered items). It is also possible for the user to explore his 
files seeking unique relationships and correlations. This technique may 
be used to discover trends or other patterns not readily provided by other 
programming techniques. 


The 'SELECT' statement is comprised of a series of Boolean relationships 
that are linked together by the 'AND' or 'OR' logical operators. The 
Boolean relationships are simple comparisons between two data elements or 
between a data element and a constant. The relationship is enclosed in 
parentheses. To form the relationship, the two data element names (or 
data element and constant) are separated by the comparative operators EQ 
(equal), NE (not equal), LY (less than), GT (greater than), LE (less than 
or equal), GE (greater than or equal). The first name in the relationship 
must be a data element name; the second may be a constant or a data ele- 
ment. name (if it is not found in the Data Element Dictionary by the pro- 
gram, it is assumed to be a constant). Alphabetic constants may be from 

1 to 20 characters in length. Numeric constants can be from 1 to 15 digits; 
in addition, a minus sign may preceed the numeric constant and a decimal 
point may be inserted. Some examples of these relationships are: 


(AGE GT 20) d.e. ~- constant 

(AGE Gr 20.0) equivalent to above d.e. - constant 

(NAME EQ JONES) d.e. - constant 

(NAME NE ) d.e. ~ constant (blanks) 
(NAME GT AAAAA) d.e. - constant 

(TEMP LT ~10) d.e. - constant 

(ONHAND GE ONORDR) d.e. - d.e. 


To construct a 'SELECT' statement, the Boolean relationships are linked 
together by the linkage operators 'AND' or 'OR' to define the total criteria 
by which to extract the records. The format is as follows: 


SELECT (Rel, ) AND/OR (Rel.) AND/OR .... (Rel) 


The characters 'SELECT' must begin in column 1 of the first card (two cards 
are permitted) followed by one or more blanks. The ‘AND’ and 'OR' opera- 
tors may be preceeded or followed by one or more blanks. If 2 cards are 
used for the statement, the data in the first card must end with a right 
parenthesis (')') and the second card must begin with the operator 'AND' 

or 'OR' in column 'l'. 
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It is important to recognize how the program groups the logical relation- 
ships according to the placement of the 'AND' and 'or' Operators. Fora 

record to be selected when two Or more relationships are linked by 'AND', 
it must meet the criteria of all the relationships. For example: 


SELECT (AGE GT 20) AND (SEX EQ F) 


States that the selected records must be for individuals who are both 
female and over the age of 20. But if 


SELECT (AGE GT 20) OR (SEx EQ F) 


is Specified, all individuals over the age of 20 will be selected along 
with all females; the 'orR! Operator acts as a logical separator to allow 
for selection of records meeting any one of several relationships. The 

use of 'OR' as a separator becomes more complex when linking several groups 
of 'AND' relationships. For example: 


SELECT (AGE EQ 10) AND (SEX EQ F) OR (AGE EQ 12) AND (SEX EQ F) 


will extract all records for both 10 and 12 year old females. However, if 
the statement were written as: 


SELECT (SEX EQ F) AND (AGE EQ 10) OR (AGE EQ 12) 
would select all 10 year old females and all 12 year olds, regardless of 
sex; the 'OR' operator has been used to group the relationships. A way to 
view the affect of the 'oR' Operator is to replace it with brackets; this 
is a convenient way to desk check the 'SELECT' portion of a query. In 


general, the procedure is: 


SELECT (PEL) AND (Rel,) AND (Rel,) OR (Rel) ] OR [(Rel,) AND (Rel) ] 


can be handwritten as: 


SELECT [(Rel,) AND (Rel,) and (Rel,)] line 1 
or [(Rel ,)] line 2 
or [(Rel.) AND (Rel )] line 3 


If the record meets either the bracketed criteria of line 1, line 2, OR 


line 3, it will be selected. 


In summary. the 'SELECT' statement can be invoked in a simple fashion, 
Or can be used to pose a relatively complex query to the system. 
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A few examples of ‘SELECT’ statements follow: 


SELECT (ITEM GT 6100) AND (VENDOR EQ 5621) OR (ITEM LT 5000) 
AND (ITEM GT 4000) AND (VENDOR EQ 4802) 


SELECT (STATE EQ NY) 
SELECT (DATE EQ 060172) AND (INVCE EQ 232) 


SELECT (ONHAND EQ 0) OR (SALES LT 2500.00) 


"PRINT' Control Statement 


The 'PRINT' statement is required for any query. The operands are a series 
of data element names separated by commas. This statement causes the speci- 
fied data elements to be edited and printed for each record encountered. It 
also extracts the specified heading for the data element from the Data 
Element Dictionary and prints it at the top of each page. In addition to 
data elements, the operand 'No' may be specified to suppress the printing 

of any information for each record encountered. This may be used in con-~ 
junction with the 'COUNT' statement (and the automatic record count provided) 
to obtain total information without printing the detail data, as the totals 
will print even with the presence of the "NO' operand. 


A 2~-digit number may also be inserted as an operand to cause additional 
lateral spacing between fields when they print on the report. The number 
corresponds to the desired number of blank spaces to be inserted. 


The general format of the 'PRINT' statement is: 


PRINT de nn, de 


1’ de ,, de., areocete dew: NO 

where de is a data element name; nn is a 2-digit space control number; and 
'No' is & Suppress print request. ‘'PRINT' must begin in column l, followed 
by 1 or more blanks. Blanks may be inserted following the commas if de- 
Sired. A maximum of 15 data element names may be specified; the use of 
numericS or the 'NO' operand each counts as a data element name in relation 
to the maximum of 15. An error will occur if the number of print positions 


required to satisfy the print command exceeds the size of the system printer. 


Examples are: 
PRINT NAME, ADDRS, AGE, AMOUNT 


PRINT ITEM, 40, SALES, 20, GROSS 
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PRINT LOCATION 


PRINT AMOUNT, BAL, AGE, NO 


"COUNT' Control Statement 
rt statement 
S the Query Facility to accumulate 
totals of specified numeric data elements and print the results at the end 
of the report. Any data element names Specified in the 'count'! statement 
muSt also appear in the "PRINT! Statement; if they do not, they are ignored. 
A record count is automatically provided. 


The general format is: 


COUNT de,, de,, de,, de,, ee Oe % de. 


Where de is a numeric data element name that has also been specified in 
the 'priftr' Statement. The characters "COUNT' followed by at least one 
blank must begin in column 1. 


Examples are: 


COUNT AMOUNT, BAL, MARGIN 


COUNT AGE 


COUNT QUANTY, COST 
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INSTALLATION INSTRUCTIONS 


The following pages describe the Step-by-step procedures that must be 
followed to generate a viable System/3 Query Facility to precess your 
master file. If these programs will be used in conjunction with several 
files, the Facility must be generated separately for each one and the 


programs cataloged with unique names (column 75-80 of the RPG II header 
card) in your library. 


The card deck as received from P.I.D. is comprised of three RPG II source 
decks and one deck of sample data. ‘The order is as follows: 


Program ANBOi 
Program ANBO2 
Program ANBO3 
Sample Bata 


It is recommended that the entire deck be reproduced for back-up purposes. 
The user should review the sections on installation and operations before 
attempting to generate the system. It would he quite beneficial to devote 
the small amount of effort necessary to generate the sample system and 
execute the sample program before proceeding with generating a "live" sys- 
tem. This is described in the section "Sample Problem Input and Output". 


Steps for System Generation 


The following functions must be performed in generating the System/3 Query 
Facility: 


1. Obtain a current version of the record layout description for the 
master file. 


2. Create a Data Element Dictionary according to the instructions in 
the following section 'The Data Element Dictionary'. 


3. Replace the sample Data Element Dictionary in the two programs 
ANBO] and ANBO2 with the one created in Step 2. (This is found 
at the end of each program deck between the '**' and '/*' cards.) 


4. After obtaining a source listing of each program, perform the 
required modifications and review the potential modifications to 
the source programs as defined in the section "Tailoring the 


Scurce Programs". 


5. Compile and catalog the two programs ANBO1 and ANBO2. 
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6. 


8. 


Create the OCL necessary for executing the facility. This is 
described in the section entitled “Program Description". 


(Optional) Catalog the OCL in the Procedure Library of the systems 
pack if you desire to use the 'CALL' functions of System/3. 


Exercise the facility enough times to have used every data element 
name in a 'PRINT' command and every numeric data element name in 

a 'COUNT' command, checking the output for accuracy in content, 
format, and heading information. This will help verify the accur- 
acy of the Data Element Dictionary. 
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THE DATA ELEMENT DICTIONARY 


Each program of the Query Facility contains a set of table records called 
the Data Element Dictionary. Each record describes one of the data elements 
(fields) found in the record of the Master file that the programs are gener- 
ated to communicate with. The programs store the Data Element records in 
the form of alternating tables. The first portion of the table record, the 


name of the data element, is one table; the latter portion, the descriptive 
Parameters, comprise the alternate table. 


The creation of the Data Element Dictionary is the most important function 
that must be performed to generate the System. The information contained 
init isa permanent "map" of the input records and the data element names 
are the communication link between the user and the Query Facility. The 
Parameters should be completely checked for accuracy. The names should be 
unique and Carry meaning to any potential user. 


Creating the Data Element Dictionar 
g wae bh tement Dict ary 


The entries for the Data Element Dictionary are Punched into cards and in- 
cluded in the source decks for the Query Facility; these cards should be 
inserted in place of the sample Data Element Dictionary found at the end 
of programs ANBO1 and ANBO2 between the '**' ang '/*' cards. Most of the 
information can he taken directly from the record layout form for the master 
file when creating the record for each data element (or field). Two param- 
eters that need additional consideration are the data element name and the 
data element heading. The name should be selected to convey meaning to the 
users of the facility. The headings should also be uniquely descriptive of 
each field, as the heading will Print on each page of the report produced. 
The number of characters in the heading should be somewhat related to the 
Print length of the field in order to achieve a report pleasing to the eye, 


Each data element is described in a single card that adheres to the follow- 
ing format: 


Card 
Columns contents 

1-6 Data Element Name -~ From One to six characters. The first 
character must be alphabetic; the name may contain no special 
characters or imbedded blanks; each name must be unique and 
should convey meaning to the user. 

7-9 Data Element Starting Position -- Three-digit numbers defin- 
ing the Starting position of the data element in the master 
recerd. 

10-12 Data Element Ending Position -- Three-digit number de fining 


the ending position of the data element in the master record. 
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Card 
Columns 


13-13 


14-14 


15-16 


17-31 


Contents 
Data Element Format -- One character defining the format of 
the field in the master record: "C" for alphameric fields, 


"P" for packed-decimal fields, "U" for zoned-decimal (unpack- 
ed) fields, and (if the Supplemental routine to interpret 
binary data has been inserted in the source code) "B" for 
binary formatted numeric fields. 


Decimals -- One digit number defining the number of digits 
that exist to the right of the implied decimal point. This 
entry is valid only for numeric fields and must otherwise be 
blank. Two additional Options are provided for numbers with 
O decimals: First, a negative 'l' (J) may be Specified in 
column 14 to eliminate the insertion of commas and a decimal 
point into the edited field (this would be used for fields 
like item number, etc.}. For numeric date fields, a nega- 
tive 2 (K) may be entered in column 14 to provide slashes in 
the edited field (e.g. mm/dd/yy) . 


Data Element Print Positions -- Two-digit number defining the 
number of print positions required for the data element and 
its heading in the reports generated by the Query Facility. 
This is normally the larger of either the number of charac- 
ters in the heading or the number of characters in the field 
(as it is printed). The print length for numeric fields 
should be computed as follows: 


Add to the number of digits in the field the following: 


2 -~- if number of digits are from 1-3 
3 -- if number of digits are from 4-6 
4 -- if number of digits are from 6-15 


The entry in columns 15-16 can be greater or less than the 
"normal" entry. A greater number can waste print space and 
a smaller number could cause truncation of either heading or 
data. 


Data Element Heading -- Any valid System/3 characters. Nor- 
mally this entry is left-adjusted but it may enhance the 
printed output in certain cases to pad with blanks on the 
left. If padding is done, this must be considered when 
making the Print Positions entry in columns 15-16. 


After the Data Element Dictionary is created, it is important to make a 
list of the data elements and their uwescriptions available to all users 

of the Query Facility. This is ; Sortant as it is the single link of 
communication between the user and his master file when using the Facility. 
For an example, see Figure 7. 
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TAILORING THE SOURCE PROGRAMS 
EE 


The source programs ANBOl and ANBO2 must be adapted to the particular situa- 
tion for which they will be used. Part of system generation is making the 
appropriate changes to the RPG II code before compiling. The required 
modifications are those related to the record size of the master file and 
the number of data elements in the Data Element Dictionary; the creation 

of the Data Element Dictionary is also mandatory. Additional modifications 
can be made to allow for an increased number of print positions and for 
allowing more information to be contained in the control statements. These 
are described in detail in the following sections. 


Statements in the source programs that require modification are flagged 
with a modification code in columns 90-95. The action that is required for 
each statement is described in detail on Pages 21-23. 


In addition, the user may have a need to Process numeric data that is con- 
tained in his master file records in binary format. This is described in 
the section "Processing Binary Fields". 
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Modifications to Program ANBO] to Tailor the System 


Modi fica- 
tion Code Gescription 
ae ee Se SSPE ePtlon 


104* 


113* 


116 


117 


118 


119 


120 


121 


123* 


124* 


*Note: 


ColLums 37-39 contain the number of data elements defined in 
the Data Element Dictionary (table 'TABFLD' and its alternate 


"TABPAR') . 


Column 5] 
column 51 


HH 


N 


3 if length from 100-999 bytes. 


2 if master file record length from 16 to 99 bytes; 


Columns 37-39 contain the number of bytes allowed to contain 
the 'SELECT' statement. ‘The entry is a multiple of 96 corres- 


ponding to the arbitrary maximum number of 96 byte records 


allowed for the 'SELECT! Statement. The program allows the 
"SELECT" statement to span multiple records and Currently is 


Set to 2x96 = 192, 


Columns 37-39 contain an entry that corresponds to the maxi- 
mum number of Boolean relationships that can be specified in 


the "SELECT" statement. This is related to the entry made 


for 116 in the sense that the more records that can he spanned 


by the 'SELEcT' Statement, the more field-field or field- 
literal relationships can exist. This must be between 10 
and 939, 


Columns 33-34 correspond to the maximum number of 'SELECT' 
relationships allowed (agrees with 117). 


Columns 37-39 contain the maximum number of data elements 


that can be specified in the "SORT' statement. This must be 


between Lo and 99. 


CoLumms 33~34 correspond to the number of data elements that 


can be specified in the 'SoRT' Statement (see 119). 


Columns 33-34 correspond to the maximum Size of the 'SELECT' 


Statement. (agrees with 116). 


Columns 48-5] correspond to the record length of the master 


file (agrees with 207). 


Columns 55~57 contain the record length of the master file. 


Codes 104, 113, 123, and 124 are the only ones that need be considered 


to implement this program with the author's pre-defined limits. 
limits are: 


2 cards for the ‘'SELECT' statement 


10 'SELECT' relationships 
10 'SORT' data eleme..cs 
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The 


Modifications to Program ANBOZ to Tailor the System 


Modi fica~ 
tion Code 





201 


204* 


205 


207* 


208* 


209 


210 


2ll* 


Description 


Columns 25-27 contain the number of print positions on the 
system printer. 


Columns 37-39 contain the number of print positions on the 
system printer. 


Coiumns 37-39 contain the record length of the master file 
(must agree with 207). 


Columms 37-39 contain the number of data elements defined in 


the Data Element Dictionary (table 'TABFLD' and its alternate 
'TABPAR') . 


Columns 38-39 contain the maximum number of data elements 
that can be specified by the user in the 'PRINT' statement. 
This number muSt be greater than 10, but its upper limit is 
restricted by the maximum number of fields that can be fit 
into one line of print, considering print positions required 
to be the number specified in columns 16-17 of the Data 
Element Dictionary record. 


Columns 37-39 contain the maximum number of data elements that 
can be specified by the user in the 'COUNT' statement. This 
number must be greater than 10 but its upper limit is bounded 
by the number of data elements defined (See 204). Also, 
consider the impact on core requirements if you choose an 
arbitrarily large number. 


Columns 25~27 contain the record length of the master file. 


Columns 48-51 contain the record length of the master file 
(must agree with 207). 


column 51, array index field length, must be 2 for 96 print 
positions or 3 for 120 or 132 print positions. 


Columns 33-35 contain the number of print positions (agrees 
with 202). 


Columns 33-34 contain the number of data elements defined 
in the 'PRINT' statement (agrees with 205). 
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Modi fica- 


tion Code 


212 


213% 


214 


215 


Description 


Columns 33-34 contain the number of data elements that can 
be speci fied in the 'count'! Statement (agrees with 206). 


Column 51, array index field length, must equal 2 fora 
master file record length of 10-99 or 3 for a record length 
Of 100-999. Consider your entry for 207. 


Columns 33-34 must be one greater than the number of data 
element names allowed in the ‘count! Statement (if your entry 
for 206 was 12, then this must be 13). 


Columns 41-43 contain the number of print positions on the 
System printer (must agree with 202). 


*Note: If you wish to implement your system with the limits specified by 
the author, then only the modifications associated with codes 203, 
204, 207, 208, ana 213 must be made (these relate to the size of 
the master record) . The limits are: 


96 print positions 
15 data elements allowed in the 'PRINT' statement 
10 data elements allowed in the ‘count’ statement 
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OPTIONAL MODIFICATIONS 


The following paragraphs discuss implementation of some optional 
functions in the Query Facility. They have not been subjected to any 
formal testing and are provided only as a guide. The RPG II code in 
the accompanying illustrations may be heipful to thoge wishing to 
expand the function of the Facility. With one exception, the use of 
these options may either increase core requirements or cause excessive 
overiays on a minimum configuretion. 


Sub-Totals (11 Totals) 


In some cases it could be bensiicial to schtein group sub~totals for 
the numeric fields specified in the ‘COUNy’ statement, as well as 
overall totals. For examole, an inventory query might be written to 
provide sub-totals for each vendor as weli as Final totals for all 
vendors. The RPG II statements in ficuce 14 provide a means to 
accomplish this function. 


Once the modification has been made to program ANBOZ, the user may 
request sub-totals in his query by the addition ef a statement with 
*BREAK' in columns 1-5. The etatement contains no other information. 
The sub-totals are printed whenever « change in content of the first 
operand cf the 'PRINT' statement is sansed. it is analogous to 
specifying an RPG II Li braak on the first 'PRINT' operand. If the 
‘BREAK' statement is not included, che sub-totals are not produced. 


For example: 
PRINT VENDOR, ITFM, COST, SELL 
COUNT cost, SELL 
BREAK 


would cause sub-totais of the COST and SELL fields to be printed for each 
vendor group and, as expected, finai totals will appear at the end of 
the report. The sequence cf the ‘BREAK’ statement is not important. 


Calculations 


This modification will allow the user to apecify two of the numeric fields 
in a record to be used ag operands in a calculation. The result of the 
calculation will be printed along with the other data fields included in 
the report. The operations included in t>*is function are addition, sub- 
traction, and multiplication. 
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An additional command is used to invoke this function. The format is: 


Columns 1-7 ‘"RESULT=' 
Columns 8-13 Operand 1 
Columns 14 Operation Code: '+', '-', or 'x!? 
Columns 15-20 Operand 2 


Examples are: 


RESULT=OTY XCOST 
RESULT=GROSS -NET 
RESULT=VALUEA+VALUEB 


When the report is produced, the result field prints as the right most 
field in each printed line. The operand 'RESULT' is not allowed in the 
"PRINT' statement of a query, but should be used as an operand in a 'COUNT' 
statement if totals of the result field are desired. 


The RPG II code in figure 15 should be used as a guide for changing the 
print program ANBO2. In addition an entry in the D.E.D. of that program 
must be made for the field 'RESULT' as follows: 


RESULTOOOOOOUS20RESULT FIELD 


to properly define the field. 


Program Size Reduction 


In certain exce;ticnal situations it may be desirable to reduce the size 

of the print program ANBO2 or to eliminate excessive overlaying. One means 
to accomplish this is to modify the program so that the 'PRINT' and ‘COUNT? 
statements ere coded in fixed format instead of the free format described 
earlier in this manual. This simply means that the user must punch the 
operands in specific colmns of the comman statements. The logic for 
scanning the free-form statements can then be removed from the program, 
reducing the size of the program. 


The modifications for this are illustrated in figure 16. When these changes 
are made, the user must now code the operands of his 'PRINT' or 'COUNT' 
statements in the fixed positions of columns 7, 13, 19, 25, 28 .... etc. 


The operands are not separated by commas as in the past. For example, 
statement previously coded as: 


PRINT NAME, AGE, AMOUNT, PRCNT 
would now be written as: 


PRINT NAME AGE AMOUNTPRCr:™ 


All other coding rales remain unchanged. 
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Cataiogued Sort Specifications 





With the ennoauncemanc of Version / of the SCP for System/3 we can eliminace 

the punching «f sort specifications in Phase I of processing a query. Instead, 
program ANBOL cculd be modified (by changing the device designation in the 

file description of the output file) to "punch" the sort specs on disk. A 

new job step, Phase 14, cculd be a SMAINT job to catalog these statements .n 
the source libvary. By adding a '// SOURCE-...' statement behind the OCL tec 
Phase JI, the wort will extract the specifications from the library insted 
of MFCUL. 


Implementing this consept would increase the execution time of a query by | 
minute cr so but would eliminate the inconveniun.c to the operator of 


having to move bunched cards from stacker 4 to MFCU] before execution of 
Phase II. 


Processing binary Pormatted Numeric Data 
The RPG Ti Statements in Figure 6 are a suggested means to allow the user 

to access binexy tields in the master record. This coding converts the 

binary field to internal zoned-decimal format so that the existing routines 

in program ANBOZ can print and tabulate the data. The length of the fied 

in the record is not restricted, except that its equivalent number of decinai 
digits dogs not exceed 15; however, if the field is created by an RPG II pro- 
gram, the binary field must be either 2 or 4 bytes long. The binary formatted 





are vallcd wpevands whe “PRINTS and 'COUNT' statements. 
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| OPERATIONS INSTRUCTIONS 
ee EN 


User Prepared Input 
ered input 


There are three types of input information that must be Supplied to the 
system upon execution. First, the user's master file. It is assumed that 
users will hav. existing application programs that create and maintain this 
file. There are no restrictions with regard to the file, except that the 
fields must be in standard System/3 formats, the record length frem 16 to 
999 bytes, and the Organization either indexed or sequential. 


Second, the OCL required for execution. This is described in the section 
"Program Description". Third, the Query Facility Control Statements. These 
are described in detail in the section "Control Statements". 


Procedures 


A query is processed in three phases. The first phase, using program 
ANBOl, is the process of interpreting the 'SELECT' and ‘SORT’ statements 
and converting them into System/3 Disk Sort Specifications. Phase II is 
the execution of the Disk Sort Program which processes the master file, 
selecting and sorting data according to the specifications produced in 
Phase I. Phase III, through the interpretation of the 'PRINT' and ‘COUNT’ 
statements, produces the final output, the printed report. 


These steps are required for procesSing a query: 
a. Punch the coutrol statements into 96-column cards. 


b. Process the 'SELECT' (Optional) and 'SORT' statements with 
program ANBO1l. The statements, preceded by the OCL, are placed 
in MFCUl for execution as described in the "Program Description" 
section and Figure 1. Blanks are placed in MFPCUD2 for punching. 


c. Clear the MFCU by pressing NPRO. 


d. Remove the punched output from Stacker 4 and place behind the 


OCL for Phase II (sort phase) in MFCUl. Then execute Phase Il. 
Refer to Figure 2. 


e. Place the OCL for Phase III (report creation) in MFCU 1 followed 
by the 'PRINT' and 'COUNT' (optional) statements as described in 
the "Program Description" section. ‘The printed report is then 
produced. 
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f. To conserve disk space, the file "S3QFOUT" should Le deleted. (If 
a location parameter is defined in the OCL for the OUTPUT file of 
Phase II, and "RETAIN"-T is specified, the file can automatically 
be overlayed following an ‘IL’ halt during Phase II execution.) 

To delete the file, use these CCL and control statements: 





// LOAD SDELET,FI 


// RUN 
// SCRATCH UNTT-uu, PACK-eppppp, LABEL-S2QFOUT 
// END 


Errors 


Error conditions encountered by the syetein 
halt indicators on the console. Normei response to these halts, after 
noting the cause, is to immediately cance] the job. The controi statements 
should be corrected and resubmitted. Some rare errcrs, however, will re- 
sult in abnormal termination of Phase Ti. These errors are incapakle of 
being trapped by ANBO] but the sort finds the output of the program in 
Phase I unintelligible. 


layed in the form of 


= 
Q 
Ny 
o 
o & 
hee 
it i 
mS 


These halts may occur: 


Halt Exogeem perer eo 
Hl ANBO1 Too many select records. 
H2 ANBO 1 invalid data element name in 'SORT' statement. 
H3 ANBO1 invalic data element name in 'SELECT’ state- 


ment C'A* operand). 





H4 ANBOL] Multiple "SELECT' statement; first card 
£5 not rev rard. 
H5 ANBOL Invaiiad “ype (does not begin with 





“SELECT, ‘ANB’, ‘OR’, or 'SORT')., 

H6 ANBO? Data Element Dictionary starting encry 
greater than end position entry for a data 
element. 


H7 ANBOL No ‘SORT’ specifications encountered. 


H8 ANBO1L Numeric field defined in Data Element Dic- 
tionary with vore than 15 digits. 


Halt 





Hl 


H2 


H3 


H4 


H5 


H6 


H8 


14 


Program 
ANBO 2 


ANBO2 


ANBO2 


ANBO2 


ANBO2 


ANBO2 
ANBO2 


ANBO2 


Description 


Invalid data element name in 'PRINT! 
statement. 


Invalid data element name in ‘PRINT’ 
statement. 


Too many data elements specified in 'PRINT' 
statement. 


Too many data elements specified in 'COUNT' 
statement. 


Data element has an invalid format code in 
Data Element Dictionary. 


Print line length exceeded. 
Invalid command type. 


Numeric data element defined with more than 
15 digits. 
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SYSTEM CAPACITIES AND LIMITATIONS 


The following restrictions apply to the system in its unmodified form: 
a. Object programs require 9K bytes of main storage. 
b. Output printer requires 96 print positions. 


c. Master file for which the facility is generated must be indexed 


or sequential in organization. The record length must be between 
10 and 999 bytes long. 


d. Acceptable data formats are alphanumeric; packed decimal, and 
zoned decimal. 


e. Maximum of 2 cards to contain a 'SELECT’ statement; all other 
statement types are restricted to one card. 


f. Maximum of 10 comparative relationships in the 'SELECT' statement. 


g- Maximum .f 10 Data Element names can be specified in the 'SORT' 
and 'COUNT' statements. 


h. Maximum of 15 Data Element names can be specified in the 'PRINT' 
statement. 


Throughput 


The user of the Query Facility will experience a wide variation of print 
speeds while executing the report program, ANBO2. The differences are 
caused by the variation in data fields being printed from one job to 
another: A print request for 2 or 3 alphabetic fields will experience 
higher print speeds than a request that prints several fields that were 
originally packed deta. Numeric fields, especially packed format, re- 


quire more attention by the program because of editing and tabulating 
requirements. 
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SAMPLE PROBLEM INPUT AND OUTPUT 
ee 


The sample problem is provided to demonstrate the functions of the System/3 
Query Facility to the user. It is recommended that the sample file be 


created and the sample queries be executed prior to generating the system 
for use with live data files. 


Generating the Sample Problem 

In order to run the sample problems, a Query Facility must be generated for 
the sample file and the sample file must be created. The necessary modifi- 
cations to the decks for programs ANBO] and ANBO2 have already been made. 
The Data Element Dictionary has been created and inserted in the source 
decks. Figure 8 gives the record layout specifications for the sample file; 
it was from this that the Data Element Dictionary was created (Figure 9) 

and punched into 96 column cards. Figure 7 illustrates a sample of a user's 


guide for the sample file. It is this document by which the user bases his 
queries. 


These are the steps necesSary to generate the sample Facility and execute 
the sample queries: 


1. Compile and catalog programs ANBO1, ANBO2, and ANBO3. 
2. Execute program ANBO3 using the sample data found in the distri- 
bution deck. Reference the section on "Program Descriptions", 


page 8. 


3. Execute program ANBO1] using the OCL defined on page 3 and the 
following query statements: 


SELECT (VENDOR EQ 357) AND (ONHAND LT BAKORD) 
SORT ONHAND, ITEM 
/* 

4. Execute the sort phase using the OCL defined on page 7. 


5. Execute program ANBO2 using the OCL defined on page 7 and 
the following query statements: 


PRINT ITEM, DESCR, CLASS, ONHAND, ONORDR, BAKORD 
COUNT BAKORD 


/* 
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Rerun Step 3 using the following query command: 
SORT SALES 
/* 
Rerun Step 4. 
Rerun Step 5, using the following query commands: 
PRINT ITEM, DESCR, VNAME, COST, SELL, SALES, MARGIN, QOTYSLD 
COUNT SALES, MARGIN 
/* 


Write and execute sample queries to gain familiarity with the 
facility. 
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MJJIFICATIGNS TO PRUCESS BINARY FURMATTED FIELDS 


INSCRT THESE CARUS AFTER STATEMENT NUMBER 1700 


CSR 


CSR 22 
CSR 22 


FMT 


INS RT THIS susR guTI nE 


CUMP "BF 
Sc TOF 
EXSR CVD 


IN PROGRAM ANBO2Z. 


AFTCR STATEMENT NUMBER 3530 
CSR CVD BEGSR 
CSk Z-ADDO NM 
CSR TesTaeo? AIN»sS 
CSR BITOF*O® AINsB 
C¥CUNVERT SINARY FIELD TO A NUMERIC FIELD». *NM® 
CSR BITEST TAG 
CSR TESTB*O® AINeB 
CSR TeStTs*i? AIN®H 
CSR TeSTBt2?t AIN.S 
CSR TESTB*3* AINsB 
CSR TEST3*4?* AINeB 
CSR TESTB'S® AINe& 
CSR TESTB*t6® AINeS 
CSR TESTS*7? AINe& 
CSR 67 1 ADD NM NM 
CSR 66 2 ADO NM NM 
CSR 65 4 ADD NM NM 
CSR 64 8 AOD NM NM 
CSR 63 16 ADO NM NM 
CSR 62 32 ADD NM NM 
CSR 61 64 AvD NM NM 
C3R 60 1238 ADD NM NM 
CSR 1 ADD & 8 
CSR 3 COMP E 
CSRNSO NM MULT 256 NM 
CSRN5O GOTO BITEST 
CSR 55 Z-SUBNM NM 
CSR ENOSR 

Figure 6 -- Binary Routine 
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HS 


22 


BINARY 


IN PROGRAM ANBOZ. 


so 


55 


60 
61 
62 
63 
64 
68 
66 
67 


NEGATIVE NO-e 


Data 


Element Print 

Name = Format = Heading Positions Description 

ITEM Numeric ‘ITEM #' 6 Item Number 

CLASS Alpha "CLASS' 5 Item Class 

VENDOR Numeric "VENDR #' 8 Vendor Number 

VNAME Alpha "VENDOR NAME' 11 Vendor Name 

DESCR Alpha "DESCRIPTION' 11 Item Description 

cost Numeric ‘cost' 8 Unit Cost of Item 

SELL Numeric "SELL' 8 Unit Selling Price 

SALES Numeric "YTD SALES' 9 Year-To-Date Sales (S$) 
QYTSLD Numeric "YTD QUANTITY' 12 Year~To-Date Sales - Units 
MARGIN Numeric ‘YTD MARGIN' 11 Year-To-Date Gross Margin 
ONHAND Numeric ‘ON-HAND' 11 Quantity On-Hand 

ONORDR Numeric ‘ON ORDER' ll Quantity On-Order 

BAKORD Numeric "BACK ORDERED' 12 Quantity Back Ordered to 


Customers 


Figure 7 -- Sample File, User's Data Element Dictionary Guide 
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# of 
Field Contents 


Location Format Decimals 

Item Number 1-5 zoned 0 
Class of Item 6-10 Alpha 

Vendor Number 11-13 zoned 0 
Item Description 24-33 Alpha 

Vendor Name 14-23 Alpha 

Item Cost/Unit 34-36 Packed 3 
Item Sell/Unit 37-39 Packed 2 
Year-To-Date Gross Sales 40-43 Packed 2 
Year-To-Date Quantity Sold 44-47 Packed 0 
Year~-To-Date Gross Margin 48-51 Packed 2 
Quantity On-Hand 52-54 Packed 0 
Quantity On-Order From Vendor 55-57 Packed 0 
Quantity Back-Order to Customers 58-60 Packed 0 


Record Length = 60 bytes 


Figure 8 -- Sample File, Record Format Specifications 
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D.E. Start End Print 


Leese 7.9 10.12 13 14 15.16 VT ete. Ria teiieweteve sie % 31 
ITEM ool 005 U -l1 06 ITEM # 

CLASS 006 010 Cc C5 CLASS 
VENDOR O11 013 U 0 08 VENDOR # 
DESCR 024 003 Cc 1l DESCRIPTION 
COST 034 036 P 3 08 COST 

SELL 037 039 P 2 08 SELL 

SALES 040 043 P 2 09 YTD SALES 
QOTYSLD 044 047 P 0 12 YTD QUANTITY 
MARGIN 048 051 P 2 ll YTD MARGIN 
ONH AND 052 054 P 0 11 ON-HAND 
ONORDR O55 057 P 0 1l ON-ORDER 
BAKORD 058 060 P 0 12 BACK-ORDERED 


These 13 cards comprise the Data Element Dictionary for the Sample File. 


Figure 9 -- Sample File, Data Element Dictionary 
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VATA ELEMENT DICTIONARY FOR SAMPLE FILE 


ITEM hk SUJ 6ITEM # 

CLASS 6 10C SCLASS 

VENOOR 11 13U0 8VENOOR # 
VNAME 14 23C 11VENOOR NAME 
DESCR 24 33C 11D0ESCRIPTION 
CusfT 34 36P3 & cost 

SELL 37 39P2 8 SELL 
SALES 40 43P2 9YTD SALES 
QTYSLD 44 47P012YTD QUANTITY 
MARGIN 48 51P211YTD MARGIN 
UNHAND S2 S54P011 ON-HAND 
JNORDR 55 S$7P011 ON-ORDER 
BAKORD 58 60P012BACK—-ORDERED 


Figure 10 -- Sample File, Data Element Dictionary 
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ITM # 


9608 
10034 
12907 
72001 
10036 
12956 


TOT 


DESCRIPTION 


407 ASSULY 
9IN WRENCH 
SLEEVE/6RG 
27#ROCKER 

6IN WRENCH 
THRST WSHR 


AL OF BAKORD 


TOTAL RECORDS 


CLASS 


ArR-39 
AP-39 
NOO4 
AR~-39 
AP-39 
NOO4G 


ON~-HAND 


WNOODOSd 


epee 


ON-ORDER 
Oo 

0 

0 

0 

144 

0 

1,352 


Figure 12 -- Sample Output, Steps 3, 4, & 5, Page 29 
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BACK-ORDERED 


103 
87 

2 

le 

48 
1,100 
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ROUTINE FOR IMPLEMENTING OUTPUT UF SUB-TOTALS 


* THIS CULE USES INDICATORS 40 THRU 44 


19SE 


241t 


295C 


296C*® INOLICATOR 42 SETS Titr PRUGRAM IN A MUDE T 


401C 
40¢C 


4603C 
404C 
405C 
406C 


641CLR 
642CLR 
643CLR 


41 


42 


40 
40 


42 
40 


TuT2 10 15 0 
NS 41 1 ¢B 2 cr 3 Ce 
nc Tin 42 


Z-ANDI F 
tXSR CHKLVI 


Sr TON 44 
EXSR TUTUUT 

Tot2 SUB TOTe2 TOTe2 
SE TOF 40 
SETON 40 
EXSR TOTOUT 
SETOF 40 


SN20-6137 


2UB TUTAL ARRAY 


DQ TAKE SUB-TOTALS 


AVOIDS 1ST REC SRK 
GUTPUT SUBTOTALS 
GLANK AFTER 


tR LI 
OUTPUT LAST SSTOT 


C* THE FOLLOWING SUBROUTINE SHOULD BE PLACED AFTER ALL CALCSsPROGRAM ANBO2 


CSR CHKLV1 BEGSR 
CSR EXSR PARAMS 
CSR MOVE * ® BLANKS 20 
CSR MOVE 6LANKS NEWL1 20 
CSR LvLOooP TAG 
C# ISOLATE CONTENTS OF THIS RECORDS LEVEL FIELO 
CseR MOVELNEWLI1 WORK19 19 
CSR MOVE WORKI9 Newll 
CSR MOVELAINed NEWL1 
CSR 1 ADD 8B B 
CSR 3 COMP € 43 
CSRN43 GOTO LvVLOOP 
C*# IS IT A LEVEL BREAK 
CSR 44 NE WLI COMP OLDL1 4040 
CSR MOVE NEWL1 OvLOL1 20 
CSR ENOSR 
2315CSRN19 50 NM ADD TOT2eN TOT2.N 
345S5SCSR 40 Z-ADOTOT2eN NM 
36150 OR 1 40 45 
36250 40 3 *suB? 
EPLACE STATEMENTS 3610 AND 3590 WITH THE FOLLOWING CARDS 
36100 Ee 2 45N40 
35900 E 23 LRNSSNSO 


Figure 14--Modifications for Subtotals 
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OEFINE BLANK FIELD 
CURRENT CONTROL FIELLC 


GET A BYTE 


LAST BYTE 
NOs GeT ANOTHER 


40 L1 SREAK 


eee He HEHEHE EHH HHH He HH He 


LN20-6137 


THESE CHANGES ALLOW THE USE OF A NEW CONTROL STATEMENT THAT DEFINES 
A CALCULATION TO BE PERFORMED ON TWO DATA ELEMENTSe THE RESULT 
TS PRINTED ON EACH LINE OF THe REPORT AS ANY OTHER FIELD. 

THE DATA ELEMENT NAME *RESULT* MUST BE GENERATED IN THE DeEeDe 


STARTING IN COLUMN 1 RESULTOOO000US20RESULT FIELD 
THE FORMAT OF THE COMMAND IS 


AS FOLLOWS 


COle 1-7 *RESULT °* 

COLe 8-13 NAME OF FIRST OPERAND 

COLe 14 OPERATION CODE--*4*,t-*,0R *xP 

COL« 15-20 NAME OF SECOND OPERAND 
EXAMPLES ARE RESULT PERCNTXAMOUNT 

RESULT GROSS -NET 

RESULT VALUEA4VALUEB 
THE QPERANDS MUST ALSO BE AMONG THOSE SPECIFIED IN THE *COUNT® 
STATEMENT. 
THE RESULT FIELD wWIiLi REQUIRE 22 PRINT POSITIONS. 
THE UPERAND "RESULT* SHOULD NEVER BE USED IN THE *pRINTe STATEMENT. 
THE OPERAND *RESULT* MAY BE USEO IN THE *"COUNT* STATEMENT. 


THIS CODE USES INDICATORS 34 THRU 39. 


205TCONTRUL NS 34 i CR 2 cE 3 cS 
2061 8 13 OP1NAM 
2071 14 14 OPCODE 
2081 15 20 OP2NAM 
298C 34 SETON 35 REMEMBER THIS RECD. 
465C 35 50 EXSR RSLTSB CALCULATE/PRINT RSLT 
1455CSR 36 35 *RESULT® LOKUPTABFLD TABPAR so 
2301CSRN35S GOTO NOCAL 
2301CSRNII SO FLO oF COMP OP1INAM 38 
2£302CSRNIG9D SO FLOeF COMP OP2NAM 37 
2303CSRN19 50 38 Z-ADONM OP 1 154 SAVE 
2304CSRNIOD SO 37 Z~ADONM OPe2 154 VALUES 
2305CSRNIOD SO 38 Z-ADDD OP1IOEC 90 OF DATA ANDO 
2306CSRNIY SO 37 Z~ADD0 OP2DEC 90 NOs OF DECIMALS 
2307CSR NOCAL TAG 
2741CSR 36 GOTO xXyYz 


...continued on next page 


Fipure 15--Modifications for Calculations 
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.. continued from nrevious nace 


C# VHESc SUSGROUTINES SHUULUD 
C* SUGRUUTINES IN THe CALCS 


Be PLACED AT THi- 
OF PROGRAM ANGO2. 


LN20-6137 


END OF THE EXISTING 


THLY PERFORM THE CALCULATION 


C*# SPECIFIED IN THe *®RESULT * CONTROL STATEMENT AND MUVES THE ANSWeR TO 
C*# Tritt. PRINT LINE es 

Citi RSLTSH BEGSR 

C*® ADJUST DECIMALS SU Re SULT IS Oeke 

LL taht 2~ADGOPIDEC Decs 10 

Lor tXSR PWRIO 

Cor OP | viv FCTRIO uPL 

Cok Z2~ADDOP2EDEC OccCs 

CSR cASGR PWRIO 

C tow COP2 JIiV FCTRIO oP? 

Chr OrcoOds LUMP fee 36 WHAT IS 

Com OrCuUbE CuMe b—8 37 THE UPERATIUN 
C ow GPCUDE CuMp © @ 38 

CSR 36 OP. ALD OP2 RESULT 15d 

Car 47 OP 1 SUB UP2 Re sULT 

Cir te Or 1 MULT We Re SULT 

COR RESULT MULT 100000 NM 

Coe £~Avuul N 

Kae "RESULT ® LUKUPCNT oN 36 

LOK 36 NM ADD TUT SN TUT eN 

Cx 36 42 NM ADD TOT2sN TOT26N 

C* Us THe ABOVE STATEMeNT ONLY OF THE LEVEL BREAK MUDe I5 USEDoee 
CSR oc TON 3619 

CSR =XSR PARAMS 

CSR LXSR NUMRIC ROLTe FLOe TO PRNT LN 
CSR SET OF 3619 

Cor SETON 50 

CSkR ENDSR 

CSR PWRI1O BEGSR 


C# THIS ROUTINE RAISES "108 


C*# PLACcS THE ANSWER IN THE FIELD FCTRIO 


CSR 


TO A POWER PLACED IN THe FIELD DECS AND 


Z~ADD1 FCTR1O 100 
CSR AGNI1O TAG 
CSR DECS SuB 1 OECS 3636 
CSRN36 FCTRIO MULT 10 FCTRIO 
CSRNIG6 GOTO AGNIO 
CSR ENDSR 


* THIS ce NTRY MUST BE MADE IN THe DATA ELEMENT DICTIUNARY 
f< SUL TOVOOOOUS2ZORESULT FIeElLoO 


Figure 15--Modifications for Calculations 
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LN29-6137 


THE FOLLOWING PROGRAM CHANGES TO THE PRINT PROGRAM-ANBO2— 
CAN REDUCE CORE REQUIREMENTS AT THE COST OF ABANDONOING 

THE FREE-FORMAT CODING OF THE *PRINT* AND *COUNT® STATEMENTS. 
THE OPERANOS MUST BE PUNCHED IN COLSe 7el3JolPe25eecETCe 
#AND ARE NOT SEPARATED BY COMMAS. ALL OTHER CODING RULES APPLY. 
* THIS IS A QUICK~-AND-OIRTY WAY TO SAVE SOME CORE. 


+ + = 


eteUEREREPLACE STATEMENTS 210202202023065240 WITH THE FOLLOWING 
Z10ICONTROL NS O1 1 CP 2 CR 3 CI 


22QI 7 96 FLO 
2301 NS O02 ice 2 co 3 cu 
2401 ? 66 CNT 


REPLACE 410.2010 


410C Z-ADO1 F 20 INITIALIZE INDEX 
201 0CSR 1 AOD COUNT COUNT 20 


*e#eeee REMOVE STATEMENTS 140¢380+ AND 710 THRU 1280 INCLUSIVE 


Figure 16--Modifications to Reduce Program size 
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